Languguage OS 2/Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO/a_utils/perl/prlbkxmp.lha/ch5/label.eg

Text File | 1991-01-08 | 107b | 9 lines

$label = '.';
while (<STDIN>) {
    if (/:$/) {
    $label = $`;
    } else {
    print $label, '/', $_;
    }
}